home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)ma.d64 / alphasort.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  126 lines
  1. 5 PRINT""
  2. 10 PRINT"[147]WANT INSTRUCTIONS?(Y/N)
  3. 13 [161] A$:[139]A$[178]""[167]13
  4. 14 [139]A$[179][177]"Y"[167][137]106
  5. 15 [153]"WOULD YOU LIKE TO PRINT INSTRUCTIONS ON A PRINTER? (Y/N)"
  6. 18 [161]B$:[139]B$[178]""[167]18
  7. 19 [139]B$[179][177]"Y"[167][137]22
  8. 20 [159]4,4,1:[157]4
  9. 22 [153]:[153]"THIS PROGRAM SORTS LISTS THAT YOU TYPE, INTO ALPHABETIC ORDER."
  10. 24 [153]"YOU CAN SAVE THESE ON DISK. ONCE YOU RUN THE PROGRAM IT WILL ASK"
  11. 26 [153]"WHETHER YOU WISH TO CHANGE THE NAME OF   THE SEQUENTIAL FILE ON THE DISK"
  12. 28 [153]"FOR EXAMPLE YOU MIGHT SAVE 'BOOKTITLES' UNDER ONE FILENAME"
  13. 30 [153]"AND 'TPUGPROGS' UNDER ANOTHER, SO YOU   HAVE TO GIVE DIFFERENT FILENAMES."
  14. 35 [153]"AT THE MOMENT THE SEQUENTIAL FILE IS    CALLED 'PROGRAM'.
  15. 37 PRINT"AFTER USING 'PROGRAM' ONCE YOU WILL WANT TO USE A DIFFERENT NAME"
  16. 40 PRINT"LIKE 'BOOKLIST' OR 'TPUGPROGS' FOR OTHER SEQUENTIAL FILES."
  17. 42 PRINT"IF YOU DON'T NEED TO CHANGE THE FILE    NAME, HIT 'RETURN'"
  18. 43 PRINT"YOU WILL SEE  A MENU:      1.LOAD;2.ADD;3.SAVE;4.PRINT;5.VIDEO"
  19. 44 IFB$<>"N"THENGOTO48
  20. 45 PRINT"PRESS RETURN[146]"
  21. 46 GETS$:IFS$<>CHR$(13)THEN46
  22. 48 PRINT"IF YOU HAVE NOT YET SAVED A LIST, PRESS 2 AND START TYPING A LIST"
  23. 49 PRINT"YOU MAY TYPE IN ALMOST2 (40 COL.)LINES--BUT!!!DON'T LEAVE SPACES"
  24. 52 PRINT"FOR EXAMPLE, HERE ARE NAMES OF TPUG     DISKS--WITH COMMENTS"
  25. 55 PRINT "     ? YESTERDAY.C---THE BEATLES--TUNE--NOT THAT GOOD--------CTU"
  26. 58 PRINT "     ? DIALER.C---A PROGRAM THAT DIALS--TPUG TELEPHONE NOS.--CT1"
  27. 60 PRINT "     ? PONZO TUTOR.1.C--REALLY USEFUL---FOR LEARNING BASIC---CTT"
  28. 63 PRINT"......AND SO ON.....":PRINT
  29. 66 PRINT"THE PROG.ALLOWS FOR 300 ITEMS,  BUT CAN BE INCREASED IN LINE 140"
  30. 67 PRINT"TO FINISH ENTERING ITEMS, TYPE 'END' AND PRESS RETURN":PRINT
  31. 69 IFB$<>"N"THENGOTO72
  32. 70 PRINT"PRESS RETURN[146]"
  33. 71 GETD$:IFD$<>CHR$(13)THEN71
  34. 72 PRINT"NOW THE C64 WILL START SORTING-THIS CAN TAKE +10MINS FOR LONG LISTS"
  35. 73 PRINT"(MAYBE A MACHINE LANGUAGE EXPERT CAN    SPEED THIS UP,LINES:310-410)
  36. 74 [139]B$[179][177]"N"[167][137]78
  37. 78 [153]"THEN THE MENU WILL APPEAR AND YOU CAN   SAVE OR PRINT ON PRINTER";
  38. 81 [153]" OR SCREEN        (VIDEO)  YOUR SORTED LIST"
  39. 84 [153]"!!!!IF YOU WANT TO ADD TO A LIST ALREADY ON DISK, THEN LOAD FIRST"
  40. 87 [153]"THEN PRESS 2 (FROM MENU) ADD NEW LINES  AND SORT AGAIN":[153]
  41. 89 [153]"IF ANYONE IMPROVES ON THIS PROGRAM      PLEASE LET ME KNOW"
  42. 90 [153]"CLIFF JANSEN, 549 STEELES W., #46,      WILLOWDALE, ONT. M2M 3Y1";
  43. 91 [153]":   TPUG#9743"
  44. 92 [139]B$[179][177]"Y"[167][137]94
  45. 93 [152]4:[160]4
  46. 94 [153]"PRESS RETURNWAIT"
  47. 95 [161]K$:[139]K$[179][177][199](13)[167]95
  48. 106 [153]"LOADTHE FILENAMES TO SAVE & LOAD DATA"
  49. 108 [153]"ARE IN LINES 710 AND 805. ":[153]
  50. 110 [153]"IF YOU WISH TO CHANGE THEM PRESS RUNSTOPWAIT IF NOT"
  51. 112 [153]"PRESS RETURNWAIT"
  52. 114 [161]A$:[139]A$[179][177][199](13)[167][137]114
  53. 120 [151]646,1
  54. 130 [156]
  55. 140 N[178]300:E$[178]"END"
  56. 150 [134]A$(N)
  57. 151 [153]"LOADMAKE YOUR CHOICE":[153]"1. LOAD"
  58. 153 [153]"2. ADD":[153]"3. SAVE"
  59. 154 [153]"4. PRINT"
  60. 158 [153]"5. VIDEO"
  61. 164 [161]AN$:[139]AN$[178]""[167]164:[139]AN$[179]"1"[176]AN$[177]"5"[167][137]164
  62. 165 M[178][197](AN$)
  63. 166 [145]M[137]700,600,800,435,900
  64. 169 K[178]1
  65. 170 [139]K[177]N[167]250
  66. 180 [153]K;:[153]" ";:[133]R$
  67. 185 [139]R$[178]E$[167]250
  68. 200 A$(K)[178]R$:K[178]K[170]1:[137]170
  69. 250 K[178]K[171]1:[139]K[177]0[167]300
  70. 260 [153]"**NO INPUT TO SORT**"
  71. 270 [137]169
  72. 300 [153]K;"ITEMS ENTERED":[129]T[178]1[164]999:[130]T
  73. 310 [153]"LOADI AM SORTING YOUR PROGRAMS"
  74. 315 [153]"PLEASE! PLEASE! BE PATIENT"
  75. 350 [139]K[178]1[167]151
  76. 360 [129]J[178]K[164]2[169][171]1
  77. 370 R$[178]A$(1):F[178]1
  78. 380 [129]L[178]2[164]J
  79. 390 [139]A$(L)[177]R$[167]R$[178]A$(L):F[178]L
  80. 400 [130]:A$(F)[178]A$(J):A$(J)[178]R$
  81. 410 [130]:[137]151
  82. 435 [153]"LOADPRINTING"
  83. 440 [159]4,4,3:[157]4
  84. 500 [129]J[178]1[164]K
  85. 510 [153],A$(J)
  86. 520 [130]
  87. 530 [152]4:[160]4
  88. 550 [137]151
  89. 600 [153]"LOAD"
  90. 610 [153]:[153]:[153]"ENTER EACH ITEM."
  91. 650 [153]"PRINT 'END' TO STOP"
  92. 655 [139]K[177]1[167]K[178]K[170]1:[139]K[177]1[167][137]170
  93. 660 [137]169
  94. 700 [153]"LOADLOADING"
  95. 710 [159]2,8,2,"0:PROGRAM,S,R"
  96. 711 [132]2,K
  97. 715 J[178]1
  98. 721 [132]2,A$(J)
  99. 725 J[178]J[170]1
  100. 727 [139]J[177]K[167]733
  101. 730 [137]721
  102. 733 [160]2
  103. 735 [137]151
  104. 800 [153]"LOADSAVING"
  105. 805 [159]2,8,2,"@0:PROGRAM,S,W"
  106. 806 [152]2,K
  107. 810 [129]J[178]1[164]K
  108. 815 [152]2,A$(J)
  109. 820 [130]
  110. 830 [160]2
  111. 835 [137]151
  112. 900 [153]"LOADHOW FAST DO YOU WISH TO GO?"
  113. 902 [153]"1. VERY FAST"
  114. 904 [153]"2.    FAST"
  115. 906 [153]"3.    SLOW"
  116. 908 [161]B$:[139]B$[178]""[167]908
  117. 910 M[178][197](B$)
  118. 911 [153]"LOAD"
  119. 912 [145] M [137] 914,916,918
  120. 914 [129]J[178]1[164]K:[153]"";A$(J):[129]T[178]1[164]100:[130]T:[130]J
  121. 915 [129]T[178]1[164]999:[130]T:[137]151
  122. 916 [129]J[178]1[164]K:[153]"";A$(J):[129]T[178]1[164]200:[130]T:[130]J
  123. 917 [129]T[178]1[164]800:[130]T:[137]151
  124. 918 [129]J[178]1[164]K:[153]"";A$(J):[129]T[178]1[164]500:[130]T:[130]J
  125. 919 [129]T[178]1[164]600:[130]T:[137]151
  126.